home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_15_1987_Transactor_Publishing.d64
/
create &wp
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
439b
|
20 lines
10 rem courtesy of hacker's hardware
15 rem w fossett - l.&wp.050485
20 :
25 rem this program creates a file
30 rem on diskette that will write
35 rem protect or un-write protect
40 rem the diskette. use as follows:
45 :
50 rem open15,8,15,"&wp":close15
55 :
60 open8,8,8,"&wp,p,w"
65 fori=1to29:readj:print#8,chr$(j);
70 nexti:close8
75 data 0,6,25,32,66,208
80 data 173,2,7,73,4,141
85 data 2,7,141,166,7,169
90 data 65,141,1,1,32,7
95 data 239,76,66,208,25
99 end